home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t5.d64 / jstick doodle.c (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  33 lines
  1. 1 PRINT"[147][154]USE JOYSTICK 2 TO DRAW A LINE ON THE
  2. 2 [153]"SCREEN.  HOLD DOWN THE FIRE BUTTON TO
  3. 3 PRINT"LIFT THE LINE.  PRESS F1 TO CLEAR THE
  4. 4 [153]"SCREEN.  PRESS THE OTHER FUNCTION KEYS
  5. 5 PRINT"TO CHANGE THE COLORS.
  6. 9 [153]"         PLEASE WAIT ONE MINUTE.
  7. 10 FORI=40960TO49151:POKEI,PEEK(I):NEXT:FORI=41150TO41152:READN:POKEI,N:NEXT:READL,H:POKE40988,L:POKE40989,H:DATA72,85,197,75,196:FORI=41189TO41192:READN:POKEI,N:NEXT:READL,H:POKE41008,L:POKE41009,H:DATA80,76,79,212,130,196:FORI=41225TO41228:READN:POKEI,N:NEXT:READL,H:POKE41024,L:POKE41025,H
  8. 11 DATA87,73,80,197,53,196:FORI=41201TO41206:READN:POKEI,N:NEXT:READL,H:POKE41014,L:POKE41015,H:DATA83,67,82,69,69,206,11,196:FORI=42042TO42044:READN:POKEI,N:NEXT:DATA76,0,196:FORI=50176TO50480:READN:POKEI,N:NEXT:DATA32,24,196,138,10,170,76,61,164,80,70,83,32,158,183,224,1
  9. 12 DATA144,5,240,19,76,72,178,169,27,141,17,208,169,21,141,24,208:DATA169,151,141,0,221,96,169,59,141,17,208,169,8,141,24,208,169:DATA148,208,238,162,32,169,224,133,252,160,0,132,251,152,145,251,200:DATA208,251,230,252,202,208,246,96,32,123,196,138,10,10,10,10,133
  10. 13 DATA2,32,253,174,32,123,196,138,5,2,160,192,132,252,160,0,132:DATA251,162,2,145,251,200,208,251,230,252,202,16,246,145,251,200,192:DATA232,144,249,96,32,158,183,224,16,176,17,96,32,235,183,134,2:DATA169,199,56,229,2,133,2,201,200,144,3,76,72,178,165,21,240
  11. 14 DATA10,201,1,208,245,165,20,201,64,176,239,169,0,133,251,169,224:DATA133,252,165,20,41,248,24,101,251,133,251,165,21,101,252,133,252:DATA165,2,41,7,24,101,251,133,251,144,2,230,252,165,2,74,74:DATA74,10,170,189,247,196,24,101,251,133,251,189,248,196,101,252,133
  12. 15 DATA252,165,20,41,7,170,160,0,120,169,52,133,1,177,251,29,41:DATA197,145,251,169,54,133,1,88,96,0,0,64,1,128,2,192,3:DATA0,5,64,6,128,7,192,8,0,10,64,11,128,12,192,13,0:DATA15,64,16,128,17,192,18,0,20,64,21,128,22,192,23,0,25
  13. 16 DATA64,26,128,27,192,28,0,30,128,64,32,16,8,4,2,1:POKE1,54:RUN19
  14. 19 VERIFY1:CONT:A=12:B=8:C=9:POKE53280,A:LETB,C
  15. 20 X=159:Y=99:WAITX,Y
  16. 30 GOSUB100:IFFTHENPOKE53280,A:LETB,C
  17. 40 IFPEEK(56320)AND16THENWAITX,Y
  18. 50 GOTO30
  19. 100 J=PEEK(56320)AND15
  20. 120 IF(JAND8)=0THENX=X+1
  21. 130 IF(JAND4)=0THENX=X-1
  22. 140 IF(JAND2)=0THENY=Y-1
  23. 150 IF(JAND1)=0THENY=Y+1
  24. 160 IFY<0THENY=0
  25. 170 IFY>199THENY=199
  26. 180 IFX>319THENX=319
  27. 190 IFX<0THENX=0
  28. 200 F=0:GETG$:IFG$="[133]"THENCONT
  29. 210 IFG$="[134]"THENA=A+1:F=1:IFA=16THENA=0
  30. 220 IFG$="[136]"THENB=B+1:F=1:IFB=16THENB=0
  31. 230 IFG$="[135]"THENC=C+1:F=1:IFC=16THENC=0
  32. 240 RETURN
  33.